home *** CD-ROM | disk | FTP | other *** search
/ Creative Computers / Creative Computers CD-ROM, Volume 1 (Legendary Design Technologies, Inc.)(1994).iso / commercial / inovatronics / edgedemo / edgeeditor / rexx / menu_learntokey.edge < prev    next >
Text File  |  1994-11-17  |  980b  |  48 lines
  1. /*
  2. ** $VER: Menu_LearnToKey.edge 1.1 (19:37:28, 29 Sep 1993)
  3. **
  4. ** Learn and bind a macro to a key
  5. **
  6. ** Written by Thomas liljetoft & Eddie Churchill
  7. */
  8.  
  9.  
  10. options results
  11.  
  12. /* get the users error-report level */
  13.  
  14. getenvvar _ge_errlevel
  15. errlevel = result
  16.  
  17. /* ask for a key-description to use */
  18. 'requestkey' title '"Enter key for the macro."'
  19. if RC == 0 then do
  20.  
  21.    /* ok so far, now what is the filename to use */
  22.    key = result
  23.    parse var key 'KEY="' keycode '" Q="' qualcode '" QM="' maskcode '"' foo
  24.    name = translate(qualcode,'_',' ')'_'keycode'.edge'
  25.    name = 'ram:'strip(reverse(substr(reverse(name),1,30)),L)
  26.    
  27.    /* now add the key */
  28.    'keyboard' key '"'name'"'
  29.    
  30.    /* is all well */
  31.    if RC == 0 then do
  32.    
  33.       /* start recording into the file */
  34.       'learn filename "'name'"'
  35.    
  36.       end
  37.          
  38.    end
  39.  
  40. if RC >= errlevel then do
  41.  
  42.    /* something went wrong enought to be reported so report */
  43.    'fault'
  44.    'requestnotify' result
  45.    end
  46.  
  47. exit(0)
  48.